home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_06_1985_Transactor_Publishing.d64 / fig 3a writechrs < prev    next >
Text File  |  2023-02-26  |  210b  |  22 lines
  1.  20
  2. * = $7000
  3. char = $7040
  4. scrn = $b5
  5.  lda #$00
  6.  tay
  7.  sta char
  8.  sta scrn
  9. again lda #$80
  10.  sta scrn+
  11.  lda char
  12. loop sta (scrn)Ly
  13.  iny
  14.  bne loop
  15.  inc scrn+
  16.  ldx scrn+
  17.  cpx #$84
  18.  bne loop
  19.  inc char
  20.  bne again
  21.  rts
  22.